home *** CD-ROM | disk | FTP | other *** search
- ; File: Install Bud
- ;
- ; Description:
- ; Installer script. Distributed with Bud, since version 1.10
- ;
- ; Revision History:
- ; Version 1.00 [Eric Labbe] July 31, 1995.
- ;
- ; $VER: Install Bud, V1.00 (31 July 1995)
-
- (complete 0)
-
- ; Ask where to install Bud
- (set @default-dest
- (askdir
- (prompt "Please select the directory where you would like to install"
- " Bud. ")
- (help @askdir-help)
- (default "Work:")
- )
- )
-
- ; Ask what icon to install
- (set budicon
- (askchoice
- (prompt "What kind of icon do you want")
- (choices "Normal" "New Icons" "Magic WB")
- (help "If you are using Magic WB or New Icons setup, select"
- " the appropriate icons. If you still use the old"
- " amiga icons, select the normal icons."
- " NOTE: Normal icons and Magic-WB icons may look"
- " ugly, since I did not tested them. I am a New Icons"
- " user, using new icons palette.")
- (default 0)
- )
- )
-
- (working "Installing Bud program")
-
- ; Normal Icon
- (if (= budicon 0)
- (copyfiles (prompt "")
- (source "Bud/icons/normal/Bud.info")
- (dest @default-dest)
- (infos)
- )
- )
-
- ; NewIcons Icon
- (if (= budicon 1)
- (copyfiles (prompt "")
- (source "Bud/icons/newicons/Bud.info")
- (dest @default-dest)
- (infos)
- )
- )
-
- ; Magic WB Icon
- (if (= budicon 2)
- (copyfiles (prompt "")
- (source "Bud/icons/mwb/Bud.info")
- (dest @default-dest)
- (infos)
- )
- )
-
- (complete 5)
-
- (copyfiles
- (prompt "")
- (source "Bud/Bud")
- (dest @default-dest)
- (infos)
- )
-
- (complete 55)
-
- ; Check if a database is already present in the chosen directory
- (set indexstring ("%s/budnames.idx" @default-dest))
- (set dbdir (tackon @default-dest "ELBUD_001"))
-
- (if (not (exists indexstring))
- (
- (copyfiles (source "Bud/budnames.idx")
- (dest @default-dest)
- (infos)
- )
- (makedir dbdir (infos))
- (copyfiles (source "Bud/ELBUD_001/bud.dat")
- (dest dbdir)
- (infos)
- )
- )
- )
-
- (complete 90)
-
- ; copy documentation files and other files
- (copyfiles (prompt "")
- (source "Bud/Bud.doc")
- (dest @default-dest)
- (infos)
- )
- (if (= budicon 0)
- (copyfiles (prompt "")
- (source "Bud/icons/normal/Bud.doc.info")
- (dest @default-dest)
- (infos)
- )
- )
- (if (= budicon 1)
- (copyfiles (prompt "")
- (source "Bud/icons/newicons/Bud.doc.info")
- (dest @default-dest)
- (infos)
- )
- )
- (if (= budicon 2)
- (copyfiles (prompt "")
- (source "Bud/icons/mwb/Bud.doc.info")
- (dest @default-dest)
- (infos)
- )
- )
- (copyfiles (prompt "")
- (source "Bud/addendum.doc")
- (dest @default-dest)
- (infos)
- )
- (copyfiles (prompt "")
- (source "Bud/Problem.txt")
- (dest @default-dest)
- (infos)
- )
- (copyfiles (prompt "")
- (source "Bud/Registration.txt")
- (dest @default-dest)
- (infos)
- )
-